home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 July / EnigmA AMIGA RUN 09 (1996)(G.R. Edizioni)(IT)[!][issue 1996-07 & 08][EARSAN CD VIII].iso / earcd / util3 / rxlcldts.lha / RexxLocalDates / Install-RexxLocalDates next >
Text File  |  1996-06-08  |  4KB  |  179 lines
  1. ;;;$VER: Install-RexxLocalDates 2.0 (8.6.96)
  2. ;;;
  3. ;;; Default installationen er:
  4. ;;;
  5. ;;; Kopier rexxlocaldates.library til LIBS:
  6. ;;; Kopier RexxLocalDates.guide, RexxLocalDates.guide.info til HELP:
  7. ;;; Kopier Test_RexxLocalDates.rexx til REXX:
  8. ;;; Tilføj RxLib rexxlocaldates.library 1 -30 0 til User-Startup
  9. ;;;
  10.  
  11. ;;;
  12. ;;; Forskellige sprog ...
  13. ;;;
  14.  
  15. ;;;
  16. ;;; Dansk
  17. ;;;
  18.  
  19. (if (= @language "dansk")
  20.     ((set #have_strings TRUE)
  21.  
  22.      (set #installask "Hvad skal installeres?")
  23.      (set #installchoice1 "rexxlocaldates.library")
  24.      (set #installchoice2 "Amigaguide dokumentation")
  25.      (set #installchoice3 "Eksempel script")
  26.      
  27.      (set #installlib_where "Hvor skal rexxlocaldates.library installeres?")
  28.      (set #installlib-help (cat "Den fulde nytte af rexxlocaldates.library opnås kun, hvis det valgte directory er indeholdt i den logiske enhed LIBS:\n\n" @askdir-help))
  29.      
  30.      (set #installguide_where "Hvor skal amigaguide dokumentationen installeres?")
  31.      (set #installscript_where "Hvor skal eksempel scriptet installeres?")
  32.  
  33.      (set #copylib_info "Kopierer rexxlocaldates.library")
  34.      
  35.      (set #copyguide_info "Kopierer amigaguide dokumentation")
  36.  
  37.      (set #copyscript_info "Kopierer eksempel scriptet")
  38.  
  39.      (set #startup_prompt "Tilføjer følgende kommandoer til s:user-startup:\n\n")
  40.       
  41.      ))
  42.  
  43. ;;;
  44. ;;; Engelsk/ukendt
  45. ;;;
  46.  
  47. (if (OR (= @language "english") (NOT (= #have_strings TRUE)))
  48.     ((set #have_strings TRUE)
  49.  
  50.      (set #installask "Which parts should be installed?")
  51.      (set #installchoice1 "rexxlocaldates.library")
  52.      (set #installchoice2 "Amigaguide documentation")
  53.      (set #installchoice3 "Example script")
  54.      
  55.      (set #installlib_where "Where should rexxlocaldates.library be installed?")
  56.      (set #installlib-help (cat "For best results, the destination directory should be covered by the logical assign LIbS:\n\n" @askdir-help))
  57.      
  58.      (set #installguide_where "Where should the amigaguide documentationen be installed?")
  59.      (set #installscript_where "Where should the example script be installed?")
  60.  
  61.      (set #copylib_info "Copying rexxlocaldates.library")
  62.      
  63.      (set #copyguide_info "Copying documentation")
  64.  
  65.      (set #copyscript_info "Copying the exaple script")
  66.  
  67.      (set #startup_prompt "Add the following commands to S:User-Startup:\n\n")
  68.       
  69.      ))
  70.  
  71. ;;;
  72. ;;; Default installations mål.
  73. ;;;
  74.  
  75. (set #defaultlibdir "LIBS:")
  76. (set #defaultguidedir "HELP:")
  77. (set #defaultscriptdir "REXX:")
  78.  
  79. (set @default-dest "")
  80.  
  81. ;;;
  82. ;;; Og så til det egentlige ...
  83. ;;;
  84. (complete 0)
  85. (set #installwhat
  86.      (askoptions 
  87.       (prompt #installask)
  88.       (help @askoptions-help)
  89.       (choices #installchoice1 #installchoice2 #installchoice3)
  90.       (default %111)
  91.       ))
  92.  
  93. (complete 12)
  94. (set #libdir 
  95.      (if (BITAND #installwhat %001)
  96.      (askdir
  97.       (prompt #installlib_where)
  98.       (help #installib-help)
  99.       (default #defaultlibdir)
  100.       (newpath TRUE)
  101.       )
  102.        )
  103.      )
  104. (complete 25)
  105. (set #guidedir 
  106.      (if (BITAND #installwhat %010)
  107.      (askdir
  108.       (prompt #installguide_where)
  109.       (help @askdir-help)
  110.       (default #defaultguidedir)
  111.       (newpath TRUE)
  112.       )
  113.        )
  114.      )
  115. (complete 37)
  116. (set #scriptdir 
  117.      (if (BITAND #installwhat %010)
  118.      (askdir
  119.       (prompt #installscript_where)
  120.       (help @askdir-help)
  121.       (default #defaultscriptdir)
  122.       (newpath TRUE)
  123.       )
  124.        )
  125.      )
  126. (complete 50)
  127. (if (BITAND #installwhat %001)
  128.     (copylib
  129.      (prompt #copylib_info)
  130.      (help @copylib-help)
  131.      (source "rexxlocaldates.library")
  132.      (dest #libdir)
  133.      )
  134.   )
  135.  
  136. (complete 62)
  137. (if (BITAND #installwhat %010)
  138.     (copyfiles
  139.      (prompt #copyguide_info)
  140.      (help @copyfiles-help)
  141.      (source "RexxLocalDates.guide")
  142.      (dest #guidedir)
  143.      (infos TRUE)
  144.      (noposition TRUE)
  145.      (if (= @user-level 2)
  146.      (confirm))
  147.      )
  148.   )
  149. (complete 75)
  150. (if (BITAND #installwhat %100)
  151.     (copyfiles
  152.      (prompt #copyscript_info)
  153.      (help @copyfiles-help)
  154.      (source "RLD_demo.rexx")
  155.      (dest #scriptdir)
  156.      (if (= @user-level 2)
  157.      (confirm))
  158.      )
  159.   )
  160. (complete 87)
  161.  
  162. (set #us-add1 "rxlib rexxlocaldates.library 1 -30 0")
  163. (set #us-add2  (cat "\nAssign LIBS: \"" #libdir "\" ADD"))
  164.  
  165. (if (NOT (= #libdir #defaultlibdir))
  166.     (set #us-add (cat #us-add1 #us-add2))
  167.   (set #us-add (cat #us-add1 ""))
  168.   )
  169.  
  170. (if (BITAND #installwhat %001)
  171.     (startup "RexxLocalDates.library"
  172.          (command  #us-add)
  173.          (prompt  (cat #startup_prompt #us-add))
  174.          (help @startup-help)
  175.          )
  176.   )
  177. (complete 100)
  178.  
  179.